Những câu hỏi liên quan
Ngáo Ngơ Alice
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 20:50

Bài 1: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

  s:=s+1/(2*i+1);

writeln(s:4:2);

readln;

end.

Bình luận (0)
Dấu tên
Xem chi tiết
Dấu tên
28 tháng 11 2021 lúc 7:26

Giups mình nhanh vs

 

Bình luận (0)
Dấu tên
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 11 2021 lúc 23:25

1:

#include <bits/stdc++.h>

using namespace std;

long long a;

int main()

{

cin>>a;

if (a%2==0) cout<<"Chan";

else cout<<"Le";

return 0;

}

Bình luận (0)
Nguyễn Hằng
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 7:08

#include <bits/stdc++.h>

using namespace std;

long long s,i,n;

int main()

{

cin>>n;

s=0;

for (i=1; i<=n; i++)

{

if (i%2!=0) s=s+i*i;

else s=s-i;

}

cout<<s;

return 0;

}

Bình luận (0)
Nguyễn Bảo Việt
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 10 2021 lúc 0:18

Bài 2: 

#include <bits/stdc++.h>;

using namespace std;

int main();

{

long m,n;

cout<<"Nhap m="; cin>>m;

cout<<"Nhap n="; cin>>n;

cout<<m*n-2;

return 0;

}

Bình luận (0)
Bảo Châu
Xem chi tiết
Bùi Anh Tuấn
4 tháng 5 2021 lúc 20:07

bài 1

Bình luận (0)
Bùi Anh Tuấn
4 tháng 5 2021 lúc 20:12

Bình luận (0)
Bùi Anh Tuấn
4 tháng 5 2021 lúc 20:23

BÀI 3

uses crt;
var a: array[1..100] of integer;
i,n,max,s,j: integer;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);
for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
max:=a[1];
s:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
s:=s+a[i];
end;
writeln('so lon nhat trong day tren la:',max);
writeln('tong bang:',s);
writeln('so nguyen to trong mang la:');
j:=1;
for i:=1 to n do
if a[i]>1 then
begin
repeat
inc(j);
until (a[i] mod j=0);
if j>(a[i] div 2) then writeln(a[i]);
j:=1;
end;
readln
end.

 

Bình luận (0)
Hùng Chu
Xem chi tiết
nuinuini
Xem chi tiết
Trang Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 12 2020 lúc 20:08

tức là từ a cộng mấy đến a+n vậy bạn?

Bình luận (0)